BlastDOS/[DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip/3101.EMU

Text File | 1990-06-01 | 1KB | 79 lines

INITIAL
{ IBM 3101 emulation file }
z#origin(1)
z#awrap(0)
z#setatt(7)
z#setins(0)
@f1 = '"$1ba$0d"'
@f2 = '"$1bb$0d"'
@f3 = '"$1bc$0d"'
@f4 = '"$1bd$0d"'
@f5 = '"$1be$0d"'
@f6 = '"$1bf$0d"'
@f7 = '"$1bg$0d"'
@f8 = '"$1bh$0d"'
@alt-c = '"$1bL"'
@alt-i = '"$1bK"'
@alt-e = '"$1bI"'
@alt-s = '"$1bJ"'
@home = '"$1bH"'
@uparr = '"$1bA"'
@dnarr = '"$1bB"'
@riarr = '"$1bC"'
@lfarr = '"$1bD"'
END
INBUFFER
0x00 NUL
0x08 BS2
0x0b LF
0x0c LF
0x0e NUL
0x1a CAN
0x7f NUL
END
INBUFFER2
0x00 NUL
0x08 BS2
0x0b LF
0x0c LF
0x0e NUL
0x1a CAN
0x7f NUL
END
OUTBUFFER
END
HOSTCODE
0               z#tabset
1               z#tabclr
2
3
5               "$1bY";z#chr(expr(@row+31));z#chr(expr(@col+31));"$0d"
6               "$1b6$40$40$0d"
7               "$1b7$41$43$0d"
8
9
A               z#curup(1,1)
B               z#curdn(1,1)
C               z#curfwd(1)
D               z#curbak(1)
E
H               poscur(1,1)
I               z#clreol
J               z#clreos
K               clear
L               clear;z#tabcla
N
O
P
Q
S
U
V
W
X%r%c           poscur(expr(%c-31),expr(%r-31))
Y%r%c           poscur(expr(%c-31),expr(%r-31))
Z
:
;
END